(FILECREATED "22-JUL-74 21:13:07" E 1621  

     changes to:  AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE)


  (LISPXPRINT (QUOTE EVARS)
	      T)
  (RPAQQ EVARS (AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE))
  (RPAQQ AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE
	 (((VECTOR THE BASIC STRUCTURE OF FRAG2)
	   (TUPLE MEMBER (APPEND (VECTOR DETAIL OF)
				 FRAG2)
		  DOING:PUP:LIST))
	  ((VECTOR THE AMOUNT OF EFFORT ANY1 SHOULD SPEND ON FRAG2)
	   (TUPLE MEMBER (APPEND (VECTOR DETAIL OF)
				 FRAG2)
		  DOING:PUP:LIST))
	  ((VECTOR HOW ANY1 STORES FRAG2)
	   (TUPLE MEMBER (APPEND (VECTOR DETAIL OF STORING)
				 FRAG2)
		  DOING:PUP:LIST))
	  ((VECTOR THE ANY2 ALGORITHM)
	   (TUPLE SOME DOING:PUP:LIST (TUPLE FUNCTION (TUPLE LAMBDA (QUOTE (PD))
							     (TUPLE MATCH (VECTOR ANY1 TYPE OF (LIST VECTOR ANY2))
								    PD)))))
	  ((VECTOR CODE INVOLVING ANY1)
	   (TUPLE INSIDE (@ ANY1)
		  DOING:PUP:LIST
		  (TUPLE FUNCTION (TUPLE LAMBDA (QUOTE (PD))
					 (TUPLE NOT (TUPLE OR (TUPLE EQUAL (@ ANY1)
								     PD)
							   (TUPLE MEMBER (@ ANY1)
								  (TUPLE COLON:BREAK PD))
							   (TUPLE EQUAL (@ ANY1)
								  (TUPLE COLON:BACK (TUPLE REVERSE
											   (TUPLE CDR
												  (TUPLE REVERSE
													 (TUPLE 
													COLON:BREAK PD))
												  ))))))))))
	  ((VECTOR WHAT INFORMATION ANY1 MAY USE TO ANY2 FRAG2)
	   (TUPLE MEMBER (APPEND (VECTOR DETAIL OF (PACK (LIST ANY2 ING)))
				 FRAG2)
		  DOING:PUP:LIST))
	  ((VECTOR ANY1 DETAILS)
	   (TUPLE MEMBER (VECTOR DETAIL OF (PACK (LIST ANY1 ING)))
		  DOING:PUP:LIST))))
(PROGN (QUOTE JUSTEVALUATE)
(FILEMAP (NIL)))
STOP